home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / EDPARTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  1.4 KB  |  66 lines
  1. unit Edparts;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, StdCtrls, ExtCtrls, Mask, DBCtrls, DBLookup,
  8.   Buttons;
  9.  
  10. type
  11.   TEdPartsForm = class(TForm)
  12.     Panel1: TPanel;
  13.     Navigator: TDBNavigator;
  14.     Panel2: TPanel;
  15.     Label1: TLabel;
  16.     DBEdit2: TDBEdit;
  17.     DBEdit4: TDBEdit;
  18.     DBEdit5: TDBEdit;
  19.     DBEdit7: TDBEdit;
  20.     DBEdit8: TDBEdit;
  21.     DBEdPartNo: TDBEdit;
  22.     Label6: TLabel;
  23.     DBEdit3: TDBEdit;
  24.     PrintBtn: TSpeedButton;
  25.     DataComboBox1: TDBLookupComboBox;
  26.     OKButton: TButton;
  27.     CancelButton: TButton;
  28.     Bevel1: TBevel;
  29.     PartsSource1: TDataSource;
  30.     procedure PrintBtnClick(Sender: TObject);
  31.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  32.   public
  33.     procedure Edit(PartNo: Double);
  34.   end;
  35.  
  36. var
  37.   EdPartsForm: TEdPartsForm;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. uses DataMod;
  44.  
  45.  
  46. procedure TEdPartsForm.Edit(PartNo: Double);
  47. begin
  48.   MastData.Parts.Open;
  49.   MastData.Parts.Locate('PartNo', PartNo, []);
  50.   ShowModal;
  51. end;
  52.  
  53. procedure TEdPartsForm.PrintBtnClick(Sender: TObject);
  54. begin
  55.   if MessageDlg('   Print this form?', mtConfirmation, [mbYes,mbNo], 0)
  56.     = mrYes then Print;
  57. end;
  58.  
  59. procedure TEdPartsForm.FormCloseQuery(Sender: TObject;
  60.   var CanClose: Boolean);
  61. begin
  62.   CanClose := MastData.DataSetApplyUpdates(MastData.Parts, ModalResult = mrOK);
  63. end;
  64.  
  65. end.
  66.